object MAINDM: TMAINDM
  OldCreateOrder = False
  Left = 796
  Top = 463
  Height = 269
  Width = 336
  object pMainDatabase: TpFIBDatabase
    DBName = '172.16.0.100:develop_grad2'
    DBParams.Strings = (
      'user_name=SYSDBA'
      'lc_ctype=WIN1251'
      'password=d_money1')
    DefaultTransaction = pMainTransaction
    DefaultUpdateTransaction = pMainTransaction
    SQLDialect = 3
    Timeout = 0
    AfterDisconnect = pMainDatabaseAfterConnect
    DesignDBOptions = []
    WaitForRestoreConnect = 0
    AfterConnect = pMainDatabaseAfterConnect
    Left = 28
    Top = 8
  end
  object pMainTransaction: TpFIBTransaction
    DefaultDatabase = pMainDatabase
    TimeoutAction = TARollback
    Left = 28
    Top = 52
  end
  object pMainErrorHandler: TpFibErrorHandler
    OnFIBErrorEvent = pMainErrorHandlerFIBErrorEvent
    Options = [oeException, oeForeignKey, oeLostConnect, oeCheck, oeUniqueViolation]
    Left = 120
    Top = 8
  end
  object ds_UserParams: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    RNAME,'
      '    RNAMEORG,'
      '    RUSER_ID,'
      '    current_date'
      'FROM '
      '    USER_GETNAME '
      '')
    Transaction = pMainTransaction
    Database = pMainDatabase
    Left = 28
    Top = 100
    poUseBooleanField = False
    poGetOrderInfo = False
    poEmptyStrToNull = False
    oRefreshAfterPost = False
    object ds_UserParamsRNAME: TFIBStringField
      FieldName = 'RNAME'
      Size = 120
      EmptyStrToNull = False
    end
    object ds_UserParamsRNAMEORG: TFIBStringField
      FieldName = 'RNAMEORG'
      Size = 1000
      EmptyStrToNull = False
    end
    object ds_UserParamsRUSER_ID: TFIBIntegerField
      FieldName = 'RUSER_ID'
    end
    object ds_UserParamsCURRENT_DATE: TFIBDateField
      FieldName = 'CURRENT_DATE'
    end
  end
  object dsc_UserParams: TDataSource
    DataSet = ds_UserParams
    Left = 28
    Top = 144
  end
  object ds_License: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    l.SERIAL,'
      '    l.BDATE,'
      '    l.EDATE,'
      '    l.MAX_ACCOUNTS,'
      '    l.CHECKSUMM,'
      '    o.NAME as ORGNAME'
      'FROM'
      '    LICENSES l'
      'JOIN USERORG o ON o.ID = l.oRG_ID')
    Transaction = pMainTransaction
    Database = pMainDatabase
    Left = 120
    Top = 104
    object ds_LicenseSERIAL: TFIBStringField
      FieldName = 'SERIAL'
      Size = 255
      EmptyStrToNull = True
    end
    object ds_LicenseBDATE: TFIBDateField
      FieldName = 'BDATE'
    end
    object ds_LicenseEDATE: TFIBDateField
      FieldName = 'EDATE'
    end
    object ds_LicenseMAX_ACCOUNTS: TFIBIntegerField
      FieldName = 'MAX_ACCOUNTS'
    end
    object ds_LicenseCHECKSUMM: TFIBStringField
      FieldName = 'CHECKSUMM'
      Size = 255
      EmptyStrToNull = True
    end
    object ds_LicenseORGNAME: TFIBStringField
      FieldName = 'ORGNAME'
      Size = 60
      EmptyStrToNull = True
    end
  end
end
